home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 May & June / Amiga-CD 1996 #5-6.iso / grafik / animationen / 295-kopieren < prev    next >
AmigaDOS Script File  |  1996-03-22  |  750b  |  28 lines
  1. .key copytarget
  2. .bra {
  3. .ket }
  4. if "{copytarget}" EQ ""
  5.     unset bla
  6.     :c/Requestfile20 RAM: DRAWERSONLY >env:bla
  7.     if warn
  8.        :c/Requestchoice20 >nil: "Information" "Kopiervorgang abbgebrochen!" ok
  9.        quit 0
  10.     endif
  11. .def copytarget $bla
  12. endif
  13. :c/checkdevavail {copytarget} 2497428
  14. if warn
  15.     :c/requestchoice20 >nil: Information "Nicht genug Platz vorhanden!" ok
  16. else
  17.     copy >nil: ssa-org:295_#? {copytarget}
  18.     copy >nil: ssa-org:mod.test {copytarget}
  19.     cd {copytarget}
  20.     if not exists SSAMultiplay
  21.         copy >nil: ssa-org:SSAMultiplay/#? all SSAMultiPlay
  22.     endif
  23.     cd ssa-org:
  24.     if `getenv request` EQ "YES"
  25.         :c/requestchoice20 >nil: Information "Kopiervorgang beendet!" ok PUBSCREEN Navigator
  26.     endif
  27. endif
  28.